home *** CD-ROM | disk | FTP | other *** search
- ;
- ; GIFV.SLT
- ; Take every GIF file in G:\IMAGES and make them GRAY scaled using
- ; an EGA monitor and keeping all 256 colors that may be in the image.
- ; This way you can use a cheapo monitor to process your image files!
- ; It also will keep the original screen size intact so that when a
- ; viewer tries to display the NEW image it won't try to switch into
- ; EGA mode!
- ;
- EGA-MODE
- EGA-COLOR-ADJUST OFF
- KEEP-SCREEN-SIZE
- slide-type-Fade
- change-path G:\IMAGES\*.GIF
- :loop
- loadnext :exit
- gray
- write G
- goto :loop
- :exit
- ENTER
- picture is centered, before continuing on.
- ;
- change-path *.gif
- res 1
- res-lock
- :loop
- loadnext :next
- res+
- res+
- res-
- res-
- center
- res-up
- goto :loop
- :next
- loadprev :exit
- res-down
- goto :next
- :exit
-
-